home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / cycler.gc < prev    next >
Text File  |  1999-05-14  |  1KB  |  47 lines
  1. G4C
  2.  
  3. WinBig -1 -1 250 100 "Cycler.gc"
  4. WinType 11110001
  5.  
  6. BOX 0 0 0 0 OUT RIDGE
  7.  
  8. xonLoad 
  9.     GuiOpen Cycler.gc
  10.  
  11. xonClose
  12.     GuiQuit Cycler.gc
  13.  
  14. Text 90 6 100 12 'Cyclers' 7 NOBOX
  15.  
  16. ;        Cycler arguments
  17. ;        L   T  W   H     Title    Variable
  18. ;        |   |  |   |       |         |
  19. xCycler 110 30 100 14 'If this is' country
  20.     CSTR "Greece"  0         ; Here are specified the
  21.     CSTR "Italy"   1         ; fields which will appear
  22.     CSTR "France"  2         ; in the Cycler as it is
  23.     CSTR "Germany" 3         ; clicked, and their values
  24.     CSTR "Belgium" 4         ; starting from zero.
  25.     CSTR "Sweden"  5         ;
  26.     CSTR "England" 6         ;
  27.     gadid 1
  28.     Update Cycler.gc 2 $country
  29.  
  30. ; ---- The two cyclers used here not only cycle through their
  31. ;      own field settings, but also update the other cycler to
  32. ;      match. If, say, day #4 is selected, then the other gadget
  33. ;      will display country #4, and vice versa.
  34. ;      That's done with the "update" commands.
  35.  
  36. xCycler 110 60 100 14 'it must be' day
  37.     CSTR "Monday"    0
  38.     CSTR "Tuesday"   1
  39.     CSTR "Wednesday" 2
  40.     CSTR "Thursday"  3
  41.     CSTR "Friday"    4 
  42.     CSTR "Saturday"  5
  43.     CSTR "Sunday"    6
  44.     gadid 2 
  45.     Update Cycler.gc 1 $day
  46.  
  47.